1 PRINT"[147]":RESTORE:CLR 2 POKE53280,0:GOSUB8000:POKE53281,11 3 GOSUB4500 4 DIMRC(NC),LR(65),AR(NC),X(19),C(NC),B(46) 105 TI$="000000" 110 POKE53280,7:POKE53281,0 120 LR=1:G=0:E=0:X=NC:VB=3:M=1 130 D=1:YP=101:YS=101:YM=101:VS=0:VZ=0:GS=0:SB=0:CR=0:NS=0:GM=0:MR=0:FD=0 140 FORI=0TO65:LR(I)=0:NEXT 150 FORI=1TOX:N=INT(3*RND(1)+1) 160 IFI=1THENN=3 170 FORJ=1TON 180 RC=INT(64*RND(1)+1):PRINT""RC:PRINT"[145][145]" 185 IFTI$="000020"THENGOSUB15000:GOTO105 190 IFLR(RC)<>0THEN180 200 LR(RC)=I 210 NEXTJ 220 RC(I)=INT(524287*RND(1)):C(I)=0 230 NEXTI:C(LR)=1:PRINT"[147]" 240 RC(1)=24576:FORI=1TO19:X(I)=0:NEXT 244 IFD=OLTHEN3050 246 IFWR=0THENPOKESV+21,1:POKESV,97:POKESV+1,200 250 IF RND(1)<.01THENGOSUB2030:FORI=1TO20:LR(I)=INT(X*RND(1)+1):NEXT 260 IFRND(1)<.01THENGOSUB2030:FORI=1TO20:LR(I)=0:NEXT 268 IFX(1)*X(12)<>1THEN278 269 ZH=RND(1) 270 IFX(1)*X(12)=1ANDZH<.4THENGOSUB2020 271 IFX(1)*X(12)=1ANDZH>=.4THENGOTO278 272 IFMR>0THENMR=MR-1:YP=YP-(YP/4):GOTO278 273 IFMR=0ANDX(1)*X(12)=1THENYP=INT(.5*YP) 278 IFX(9)*X(11)<>1THEN290 279 GG=RND(1) 280 IFX(9)*X(11)=1ANDGG<.4THENGOSUB2040 281 IFX(9)*X(11)=1ANDGG>=.4THENGOTO290 282 IFGM>0THENGM=GM-1:YS=YS-(YS/4):GOTO290 283 IFGM=0ANDX(9)*X(11)=1THENYS=INT(.5*YS) 290 YS=YS-D:YM=YM-D:YP=YP-D:GOSUB6300 301 IFYM<=0THENYP=0:YS=0 302 IFCS>1THEN306 304 IFYP<30ORYS<30ORYM<30THENCS=CS+1:POKESV+21,0:GOSUB7000 306 IFYP>0ANDYS>0THEN319 310 IFYP<=0ORYS<=0THENPRINT"[147]YOU ARE NOW A PERMANENT RESIDENT HERE!":GOSUB17000 311 INPUT"PLAY AGAIN (Y/N)";D$:POKESV+21,0 312 IFD$="Y"THENRUN 314 IFD$<>"Y"THENEND 315 GOSUB3000 319 IFD=OLANDLR=OCTHEN3100 320 GOSUB20109:PRINT"";:IFWR=0THENPOKESV+21,1:POKESV,97:POKESV+1,200 321 IFVB=3THENPRINT"[159][211] [211] [211] COMMANDS:R=RING:D=DESCEND:S=STATUS"; 322 IFVB=3THENPRINT" T=TRADE:H=HELP:E=EXIT:*=ORB AT:A=FIGHT[146]"; 323 IFVB=2THENPRINT"[159][211] [211] COMMANDS:R=RING:D=DESCEND:S=STATUS"; 324 IFVB=2THENPRINT" T=TRADE:H=HELP:E=EXIT:*=ORB AT:A=FIGHT[146]"; 325 IFVB=1THENPRINT"[159][211] COMMANDS:R=RING:D=DESCEND:S=STATUS"; 326 IFVB=1THENPRINT" T=TRADE:H=HELP:E=EXIT:*=ORB AT:A=FIGHT[146]"; 327 PRINT" ":PRINT"[145][145][145][145]" 339 PRINT"YOU ARE IN CHAMBER";LR;"ON LEVEL";D 340 GOSUB350:GOTO410 350 FORI=1TOX:AR(I)=0:NEXT 360 FORI=1TO64 370 IFLR<>LR(I)THEN400 380 IFLR(I+1)<>0ANDLR(I+1)<>LRTHENAR(LR(I+1))=1 390 IFLR(I-1)<>0ANDLR(I-1)<>LRTHENAR(LR(I-1))=1 400 NEXT:RETURN 410 N=RC(LR) 420 FORI=1TO19:Y=INT(N/2):X(I)=2*(N/2-Y):N=Y:NEXT 430 IFX(2)=0THENVZ=0:GOTO479 440 IFF=1THEN459 441 VZ=D*(X(3)+2*X(4)+4*X(5)+LR) 442 VS=D*(X(6)+2*X(7)+4*X(8)+LR) 459 GOSUB8300:RU=3 460 POKE56035,4:POKE1763,22:POKE56075,4:POKE1803,1:POKE56115,4:POKE1843,13 461 POKE56155,4:POKE1883,16:POKE56195,4:POKE1923,9:POKE56235,4:POKE1963,18 462 POKE56275,4:POKE2003,5 463 YM=YM-1 479 IFX(1)*X(12)=1ANDPEEK(1763)=22THENGOSUB8500:GOTO482 480 IFX(1)*X(12)=1THENGOSUB8400:POKE1403,26:POKE1443,15:POKE1483,13:POKE1523,2 481 GOTO482 482 IFX(1)*X(12)=1THENPOKE1403,26:POKE1443,15:POKE1483,13:POKE1523,2 483 IFX(1)*X(12)=1THENPOKE1563,9:POKE1603,5 494 IFX(9)*X(11)=1THENGOSUB14000 496 IFRND(1)<(.1*D)THENGOSUB1200 498 IFRND(1)<(.1*D)THENGOSUB1500 500 IFX(10)<>1THENT=0:MG=0:GOTO 530 510 T=X(11)+2*X(12)+4*X(13)+1 521 MG=T*LR*D+1 530 OW=X(15)+2*X(16)+4*X(17)+8*X(18)+1 540 IFOW>XTHENOW=1 550 IFOW=0THENOW=1 555 PRINT" ":PRINT"[145][145]" 560 IFX(14)=0OROW=LRTHEN578 570 GOSUB15000:PRINT"[153]A ONE-WAY TUNNEL TO CHAMBER";OW;"[157] IS OPEN [146]" 577 POKE55454,13:POKE1182,160:POKE55455,13:POKE1183,160:GOTO579 578 PRINT"[158] ":POKE55455,7:POKE1183,160 579 IFX(19)*X(13)=1THENGOSUB11000 585 PRINT" ":PRINT"[145][145]" 590 PRINT"[158]GOLD=[157]";MG;"FROM CHAMBER";LR; 594 PRINT"YOU MAY GO TO" 595 PRINT" ":PRINT"[145][145]" 600 FORI=1TOX 610 IFAR(I)=1ANDI<>LRTHENPRINTI; 611 NEXTI 615 FG=RND(1):FF=RND(1) 617 IFFF<.1THENGOSUB6200 620 IFFG<.1THENGOSUB6000 621 PRINT: PRINT" ":PRINT"[145][145]" 622 PRINT"ENTER COMMAND, OR CHAMBER #"; 625 INPUTMT$:IFMT$=""THENPRINT"[145][145]" :GOTO622 626 IFMT$="*"THEN3600 631 IFMT$="H"THENPOKESV+21,0:POKESV+21,0:WR=0:WC=2:GOTO40000 633 IFMT$="S"THENPOKESV+21,0:WR=0:WC=2:GOTO7000 634 IFMT$="D"ANDX(19)*X(13)=1THEND=D+1:F=0:POKESV+21,0:WR=0:WC=2:GOTO140 636 IFMT$="R"ANDLR<>1THEN675 637 IFMT$="E"ANDLR=1THENPOKESV+21,0:GOSUB4100:WR=0:WC=2:GOTO7500 638 IFMT$="T"ANDLR=1THENPOKESV+21,0:WR=0:WC=2:GOTO720 639 IFMT$="A"ANDLR<>1THENM=0:GOSUB14500:RU=1:GOTO800 640 IFFG<.1ANDMT$="G"THENG=G+10:FG=1:PRINT"[145][145]":GOTO622 641 IFFF<.1ANDMT$="F"THENFD=FD+2:FF=1:PRINT"[145][145]":GOTO622 645 IFVAL(MT$)=STHENGOSUB8100:GOTO650 646 IFMT$=""THENPRINT"[145][145]":GOTO622 647 M=VAL(MT$):MT$="E":IFM>NCTHENPRINT"[145][145]" :GOTO622 648 IFM<=NCTHENGOSUB8100:GOTO650 649 IFMT$=""THENPRINT"[145][145]":GOTO622 650 PRINT"[158]YOUR TOTAL GOLD IS";G 655 GOSUB15000 670 IFM<=XTHEN705 675 IFRND(1)<.4THENGOSUB2000:YP=INT(.5*YP):YS=INT(.5*YS):GOTO250 691 GOSUB2060:POKESV+21,0:POKESV+21,1:RC(LR)=266240:GOTO319 705 IFVZ>0THEN800 710 IFM<>0ORLR<>1THEN1020 720 PRINT"[147][153]EXPERIENCE";E 721 PRINT"[159]SPEED =";YS;,"STRENGTH =";YP:CS=0 722 PRINT"[159]HOW MUCH EXPERIENCE TO BE":PRINT"ADDED TO SPEED ( 0 TO";E;")"; 723 INPUTN2:IFE-N2<0THENPRINT"[145][145][145]":GOTO722 724 E=E-N2:YS=YS+N2 740 PRINT"[153]EXPERIENCE LEFT";E 752 PRINT"HOW MUCH EXPERIENCE TO BE":PRINT"ADDED TO STRENGTH ( 0 TO";E;")"; 753 INPUTN2:IFE-N2<0THENPRINT"[145][145][145]":GOTO752 754 E=E-N2:YP=YP+N2 780 GOTO7000 800 POKE53280,7:F=1:IFRU=3THEN1000 801 IFGSANDSB>0THENYH=INT(RND(1)*(YP+YP)):VH=INT(RND(1)*VZ):SB=SB-1:GOTO814 802 IFNS>0THENYH=INT(RND(1)*(YP+(YP*.50))):VH=INT(RND(1)*VZ):NS=NS-1:GOTO814 803 IFCR>0THENYH=INT(RND(1)*(YP+(YP*.25))):VH=INT(RND(1)*VZ):CR=CR-1:GOTO814 813 YH=INT(RND(1)*YP):VH=INT(RND(1)*VZ) 814 IFM>0THEN1000 830 IFYH>VZTHENYH=VZ 840 IFVH>YPTHENVH=YP 850 IFRND(1)*YS>RND(1)*VSTHEN880 860 GOSUB2270 862 YP=YP-VH:VZ=VZ-INT(.5*YH) 880 GOSUB2240:VZ=VZ-YH:YP=YP-INT(.5*VH) 881 VZ=VZ-YH:YP=YP-INT(.5*VH) 900 E=E+2*YH 910 IFVZ<=0THENVZ=0:GOSUB2260:RC(LR)=RC(LR)-2 914 IFSB>0THENSB=SB-1 915 IFVZ<=0THEN250 920 GOSUB2250:GOTO250 1000 IFRND(1)*YS>RND(1)*VSANDRU=3THENGOSUB2280:RU=2:GOTO1070 1007 IFRU<>3THEN1011 1009 IFFD>0THENFD=FD-1:YP=YP-(INT(.2*VZ))/2:VB=VB-1:GOTO1011 1010 YP=YP-INT(.2*VZ):VB=VB-1 1011 IFVB=0THENYP=0:GOTO310 1012 GOTO1070 1020 IFT=0THEN1070 1030 G1=INT(RND(1)*T*LR*D)+1 1040 IFX(1)*X(12)=1ANDRND(1)<.4THENG1=0 1049 G=G+G1:RC(LR)=RC(LR)-512 1052 YM=YM+(G1/2) 1060 E=E+G1 1070 IFAR(M)=1ORM=OWTHENLR=M:AR=0:E=E+D:B(LR)=1:GOTO250 1080 GOTO250 1200 IFWC=1THEN1250 1204 FORDC=1TO10:GOSUB16500 1205 PRINTTAB(9)"[155][213][209][201][157][157][157][157][157][202][209][203]" 1206 PRINTTAB(9)"[202][209][203][157][157][157][157][157][213][209][201]":DS=TI 1207 IFTIDS+4THEN1209 1209 NEXTDC:PRINT"" 1210 GOSUB1300:RETURN 1250 FORDC=1TO10:GOSUB16500 1255 PRINT"[155]",,,"[157][157][213][209][201][157][157][157][157][202][209][203]" 1256 PRINT"[155]",,,"[157][157][202][209][203][157][157][157][157][213][209][201]":DS=TI 1257 IFTIDS+5THEN1259 1259 NEXTDC:PRINT"" 1260 GOSUB1300:RETURN 1300 IFFD>0THENFD=FD-1:RETURN 1302 IFSB>0THENSB=SB-1:RETURN 1303 IFCR>0THENCR=CR-1:RETURN 1304 IFNS>0THENNS=NS-1:RETURN 1305 IFGM>0THENGM=GM-1:RETURN 1306 IFMR>0THENMR=MR-1:RETURN 1307 IFGS>0THENGS=GS-1:RETURN 1308 RETURN 1500 IFWC=1THEN1550 1504 FORDC=1TO6:GOSUB16700 1505 PRINT"","[146][155][193][213][201][213]" 1506 PRINT,"[146][155][202][203][202][203]" 1507 PRINT"","[146][155][193][213][201][201]" 1508 PRINT,"[146][155][202][203][202][203]":DS=TI 1510 IFTIDS+4THEN1518 1518 NEXTDC:GOSUB1300:POKEX9,128:RETURN 1550 FORDC=1TO6:GOSUB16700 1555 PRINT"",,,"[146][155][193][213][201][213]" 1556 PRINT,,,"[146][155][202][203][202][203]" 1557 PRINT"",,,"[146][155][193][213][201][201]" 1558 PRINT,,,"[146][155][202][203][202][203]":DS=TI 1560 IFTIDS+4THEN1568 1568 NEXTDC:GOSUB1300:POKEX9,128:RETURN 2000 YM=YM-1:PRINT"",,,"[157][157][157][157]BACKFIRE" 2001 GOSUB14600 2002 RETURN 2020 PRINT"ZOMBIE HURT YOU" 2029 RETURN 2030 PRINT"TREMOR":RETURN 2040 PRINT"",,"YOU'VE BEEN GASSE" 2046 POKE2023,4:RETURN 2060 GOSUB16500:POKE53280,1:POKE53281,1 2062 POKE1464,18:POKE1504,9:POKE1544,14:POKE1584,7:POKE1624,32:POKE1664,23 2063 POKE53280,7:POKE53281,0 2064 POKE1704,15:POKE1744,18:POKE1784,11:POKE1824,5:POKE1864,4:RETURN 2240 POKE53281,8:PRINT"YOU ATTACK":POKE53281,2:POKE53281,0 2245 RETURN 2250 POKE53281,8 2252 POKE1383,22:POKE1423,1:POKE1463,13:POKE1503,16:POKE1543,9:POKE1583,18 2254 POKE1623,5:POKE1663,32 2256 POKE53281,2 2257 POKE53281,0 2258 POKE1703,1:POKE1743,12:POKE1783,9:POKE1823,22:POKE1863,5:RETURN 2260 POKE53281,8 2261 POKESV+21,0:POKESV+21,1 2262 POKE1383,22:POKE1423,1:POKE1463,13:POKE1503,16:POKE1543,9:POKE1583,18 2263 POKE53281,2 2264 POKE1623,5:POKE1663,32 2266 POKE1703,11:POKE1743,9:POKE1783,12:POKE1823,12:POKE1863,5:POKE1903,4 2267 POKE53281,0 2268 RETURN 2270 POKE53281,8:PRINT"VAMPIRE ATTACKS":POKE53281,2:POKE53281,0 2278 RETURN 2280 PRINT"",,"ESCAPED":RETURN 3000 POKESV+0,100:POKESV+1,200:RETURN 3050 PRINT"[147]MAGICAL ORB IS ON THIS LEVEL":FORZZ=1TO500:NEXTZZ:GOTO246 3100 PRINT "[147]":POKE53281,1:GOSUB3200:GOTO3140 3120 POKE1444,81:POKE1445,81:POKE1521,81:POKE1561,81:POKE1443,81:POKE1446,81 3121 FORDC=1521TO1528:POKEDC,81:NEXTDC 3122 POKE1568,81 3123 FORDC=1482TO1487:POKEDC,81:NEXTDC 3124 FORDC=1561TO1568:POKEDC,81:NEXTDC 3125 FORDC=1602TO1607:POKEDC,81:NEXTDC 3126 POKE1644,81:POKE1645,81:POKE1643,81:POKE1646,81 3127 POKE55796,7:POKE55797,7:POKE55836,7:POKE55837,7 3128 POKE1570,99:POKE1572,99 3129 POKE1559,99:POKE1557,99 3130 POKE1364,103:POKE1284,103 3131 POKE1725,101:POKE1805,101 3132 POKE1680,78:POKE1690,77:POKE1440,77:POKE1450,78:RETURN 3140 GOSUB8300:POKE53281,12:GOSUB3300 3150 VP=OC*OL*INT((10*RND(1))) 3155 PRINT"[144]VAMPIRE'S STRENGTH";VP 3156 PRINT"YOUR STRENGTH";YP 3157 PRINT"ENTER AN TO FIGHT VAMPIRE";:INPUTFV$:GOSUB14500:GOSUB14500 3160 YH=INT(RND(1)*YP):VH=INT(RND(1)*VP):WO=YH-VH:IFWO<=0THEN3175 3162 PRINT"[147][144]CONGRATULATIONS!!! YOU NOW POSSESS THE" 3163 PRINT"POWERS OF THE MAGICAL ORB!!!" 3164 PRINT"THIS IS THE END OF COUNT DAMION AND HISCOMPANIONS":GOSUB3120 3170 POKESV+21,0:POKESV+21,1 3174 POKE53280,14:POKE53281,12:GOSUB16805:GOTO7500 3175 POKE53280,0:YP=0:GOTO310 3200 PRINT"[206] " 3211 POKE56295,2:POKE2023,77 3215 PRINT"[205] [206]"; 3216 PRINT" [205] [206] "; 3217 PRINT" [205] [206] "; 3218 PRINT" [205] [206] "; 3219 PRINT" [205] [206] "; 3220 PRINT" [205] [206] "; 3221 PRINT" [205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206] "; 3223 PRINT" [167] [165] "; 3224 PRINT" [167] [165] "; 3225 PRINT" [167] [165] "; 3226 PRINT" [167] [165] "; 3227 PRINT" [167] [165] "; 3228 PRINT" [167] [165] "; 3229 PRINT" [167] [165] "; 3230 PRINT" [167] [165] "; 3231 PRINT" [167] [165] "; 3232 PRINT" [167] [165] "; 3234 PRINT" [167] [165] "; 3235 PRINT" [206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205] "; 3236 PRINT" [206] [205] "; 3237 PRINT" [206] [205] "; 3238 PRINT" [206] [205] "; 3239 PRINT" [206] [205] "; 3240 PRINT" [206] [205] ";:GOSUB3120 3299 RETURN 3300 FORDC=1TO20 3305 PRINT"[144][213][209][201][202][209][203][213][209][201][202][209][203]" 3310 PRINT"[202][209][203][213][209][201][202][209][203][213][209][201]":GOSUB16500 3320 PRINT"[193][213][201][213]" 3321 PRINT"[202][203][202][203]" 3322 PRINT"[193][213][201][201]" 3323 PRINT"[202][203][202][203]" 3324 PRINT"[193][213][201][213]" 3325 PRINT"[202][203][202][203]" 3326 PRINT"[193][213][201][201]" 3327 PRINT"[202][203][202][203]" 3328 PRINT"[193][213][201][213]" 3329 PRINT"[202][203][202][203]" 3330 PRINT"[193][213][201][201]" 3331 PRINT"[202][203][202][203]" 3350 NEXTDC:RETURN 3600 PRINT"[147]MAGICAL ORB IS IN CHAMBER";OC;"ON LEVEL";OL:GOTO320 4100 POKE53280,6:PRINT"[147]" 4101 RESTORE:POKE53281,6 4105 PRINT"YOU CAN RELAX NOW, FOR YOU ARE SAFLEY STANDING OUTSIDE THE CASTLE"; 4110 PRINT" AHEAD OF YOUIS A SLEEZY LOOKING CHARACTER, AND HE ASKS:" 4120 PRINT"WANT TO BUY SOME SUPPLIES"; 4125 INPUT" (Y/N)";AW$ 4130 IFAW$="N"THENRETURN 4135 IFAW$<>"Y"THEN4120 4140 PRINT"[147]I HAVE SOME:" 4141 PRINT" ITEM COST":PRINT 4142 PRINT"WOODEN STAKES 5 GOLD PIECES" 4143 PRINT"GUNS 20 GOLD PIECES" 4144 PRINT"BULLETS 5 GOLD PIECES" 4145 PRINT"CROSSES 2 GOLD PIECES" 4146 PRINT"FOOD 5 GOLD PIECES" 4147 PRINT"GAS MASKS 10 GOLD PIECES" 4149 PRINT"MIRRORS 10 GOLD PIECES" 4155 PRINT 4160 PRINT"YOU HAVE";G;"PIECES OF GOLD:" 4164 PRINT" TO BUY ENTER":PRINT 4165 PRINT" STAKES 1" 4170 PRINT" GUNS 2" 4175 PRINT" BULLETS 3" 4180 PRINT" CROSSES 4" 4181 PRINT" FOOD 5" 4182 PRINT" GAS MASK 6" 4185 PRINT" MIRRORS 7"; 4186 INPUTBW 4190 IFBW=4THEN4230 4191 IFBW=5THEN4240 4192 IFBW=1THEN4200 4193 IFBW=6THEN4250 4194 IFBW=2THEN4210 4195 IFBW=7THEN4270 4196 IFBW=3THEN4220 4198 IFBW>7THEN4140 4199 IFBW<1THEN4140 4200 PRINT"[147]HOW MANY STAKES DO YOU WANT"; 4202 INPUTNS 4203 IFNS>G/5THENPRINT"NOT ENOUGH GOLD!":GOTO4200 4204 G=G-(NS*5) 4205 PRINT"YOU HAVE";G;"PIECES OF GOLD LEFT, BUY" 4206 PRINT"MORE WEAPONS (Y/N)"; 4207 INPUTMW$:IFMW$="N"THEN7000 4208 IFMW$="Y"THEN4140 4209 IFMW$<>"Y"THENPRINT"[145][145]":GOTO4206 4210 PRINT"[147]HOW MANY GUNS DO YOU WANT"; 4212 INPUTGS 4213 IFGS>G/20THEN PRINT"NOT ENOUGH GOLD!":GOTO4210 4214 G=G-(GS*20):GOTO4206 4220 PRINT"[147]HOW MANY BULLETS DO YOU WANT"; 4222 INPUTSB 4223 IFSB>G/5 THEN PRINT"NOT ENOUGH GOLD!":GOTO4220 4224 G=G-(SB*5):GOTO4206 4230 PRINT"[147]HOW MANY CROSSES DO YOU WANT"; 4232 INPUTCR 4233 IFCR>G/2THENPRINT"NOT ENOUGH GOLD!":GOTO4230 4234 G=G-(CR*2):GOTO4206 4240 PRINT"[147]HOW MUCH FOOD DO YOU WANT"; 4242 INPUTFD 4243 IFFD>G/5THENPRINT"NOT ENOUGH GOLD!":GOTO4240 4244 G=G-(FD*5):GOTO4206 4250 PRINT"[147]HOW MANY GAS MASKS DO YOU WANT"; 4252 INPUTGM 4253 IFGM>G/10THEN PRINT"NOT ENOUGH GOLD!":GOTO4250 4254 G=G-(GM*10):GOTO4206 4270 PRINT"[147]HOW MANY MIRRORS DO YOU WANT"; 4272 INPUTMR 4273 IFMR>G/5THENPRINT"NOT ENOUGH GOLD!":GOTO4260 4274 G=G-(MR*5):GOTO4206 4500 INPUT"[147]HOW MANY CHAMBERS PER LEVEL (5-28)";NC 4501 IFNC<2THENPRINT"[145][145]":GOTO4500 4503 IFNC=0THENPRINT"[145][145]":GOTO4500 4505 IFNC>28THENPRINT"[145][145]":GOTO4500 4506 PRINT"ARE YOU 1 - NOVICE" 4507 PRINT" 2 - EXPERIENCED" 4508 PRINT" 3 - EXPERT 1";:INPUT"[157][157][157]";DL 4509 PRINT"[158] "; 4510 PRINT" MAGICAL ORB [146]"; 4511 PRINT"[159] WILL BE ON LEVEL";:OL=5*DL:PRINTOL;"[158]_ _ _ _"; 4512 PRINT"[158] "; 4514 OC=INT(100*RND(1)):IFOC>NCTHEN4514 4515 IFOC<2THEN4514 4517 IFNC>10THENPRINT"WAIT ONE MINUTE PLEASE " 4518 IFNC>10THENPRINT"WHILE I CREATE CASTLE" 4520 RETURN 6000 FORDC=1TO10 6010 PRINT"GOLD" 6011 PRINT"[158] [163][163][163]" 6012 IFTIDS+40THENNEXT:RETURN 6200 FORDC=1TO10 6210 PRINT"",,,"FOO":POKE2023,4 6211 PRINT"",,,"[158][163][163][163]":POKE2023,160 6220 IFTIDS+40THENNEXT:RETURN 6300 BE=VAL(TI$):IFBE/1000>=1THENE=E+100:GOSUB16500:TI$="000000":RETURN 6303 RETURN 7000 POKE53281,0 7010 PRINT"[147]YOUR STATUS YOUR SUPPLIES":PRINT:POKE53280,7 7015 IFYP<=0ORYS<=0THEN310 7050 PRINT"YOUR EXPERIENCE IS";E;TAB(24) "GUNS ";GS 7100 PRINT"YOUR STRENGTH IS ";INT(YP);TAB(24) "BULLETS ";SB 7150 PRINT"YOUR SPEED IS ";INT(YS);TAB(24) "CROSSES ";CR 7200 PRINT"YOUR MORALE IS ";INT(YM);TAB(24) "WOOD STAKES";NS 7250 PRINT"YOUR TOTAL GOLD IS";G ;TAB(24) "GAS MASKS ";GM 7265 PRINTTAB(24)"MIRRORS ";MR 7270 PRINTTAB(24)"FOOD ";FD 7275 PRINT"VAMPIRE'S STATUS" 7280 PRINT"VAMPIRE'S SPEED";VS 7282 PRINT"VAMPIRE'S STRENGTH";VZ:PRINT 7300 PRINT"ENTER" 7301 PRINT"1 TO CONTINUE" 7302 PRINT"2 FOR HELP" 7303 PRINT"3 TO BUY WEAPONS AND MATERIALS" 7304 PRINT" (CHAMBER 1 ONLY)" 7306 PRINT"4 TO TRADE EXPERIENCE 1" 7307 PRINT" (CHAMBER 1 ONLY)" 7309 INPUT"[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";ES$ 7310 IFES$=""THENPRINT"[145][145]":GOTO7305 7312 IFES$="1"THEN7490 7314 IFES$="2"THEN40000 7316 IFES$="3"ANDLR=1THEN4100 7318 IFES$="4"ANDLR=1THEN720 7320 IFES$<>"4"THENPRINT"[145][145]":GOTO7306 7490 PRINT"[147]":POKESV+21,1:GOTO320 7500 PRINT"YOU FOUND";G;"PIECES OF GOLD." 7510 INPUT"PLAY AGAIN (Y/N)";E$ 7520 IFE$="Y"THENPOKE53281,0:POKESV+21,0:RUN 7530 IFE$="N"THENPOKESV+21,0:END 7540 IFE$<>"N"THENPRINT"[145][145]":GOTO7510 8000 DATA0,0,0,0,20,0,0,85,0,0,233 8022 DATA0,3,165,0,0,101,0 8024 DATA0,168,0,0,40,0,0,40,0 8026 DATA128,252,0,179,255,0,12,252,192 8028 DATA0,252,48,0,252,8,0,84,0 8030 DATA0,204,0,0,204,0,0,195,0 8031 DATA0,192,192,0,192,16,1,64,64 8033 DATA0,5,0,0,21,64,0,26,192,0,22,128,0,22,160,0,6,64,0,90,130,0,22,6,0,21 8034 DATA86,0,85,80,1,85,64,5,85,64,21,85,64,85,69,64,85,15,192,84,4,64,80,4,64 8035 DATA64,4,64,0,16,64,0,192,64,0,48,240 8037 DATA1,64,0,5,80,0,5,224,0,6,160,0,5,168,0,5,160,0,6,128,0,2,160,0,2 8038 DATA128,0,3,240,0,3,255,250,3,255,250,3,240,,3,240,0,1,80,0 8039 DATA3,240,0,3,48,0,12,48,0,48,48,0,64,48,0,16,20,0 8050 SV=53248:POKESV+21,0:POKESV+23,7:POKESV+29,0 8051 POKESV+28,7:POKE2040,13:POKE2041,14:POKE2042,15 8055 POKESV+37,0:POKESV+39,10:POKESV+38,6:POKESV+40,2:POKESV+41,13 8056 FORND=0TO62:READPY:POKE832+ND,PY:NEXT 8057 FORND=0TO62:READPV:POKE896+ND,PV:NEXT 8058 FORND=0TO62:READPZ:POKE960+ND,PZ:NEXT 8060 RETURN 8100 POKESV+21,1 8102 WR=WR+1 8103 IFWR=2THENWR=0:GOTO8200 8105 WC=1:FORMP=1TO20STEP4:GOSUB16000 8125 POKESV,97:POKESV+1,200-MP:POKESV,96:POKESV+1,199-MP 8130 NEXTMP:POKESV+23,0:FORMP=21TO35STEP2 8132 GOSUB16000 8135 POKESV,97:POKESV+1,200-MP:POKESV,96:POKESV+1,199-MP:NEXTMP:POKESV+21,0 8139 FORMP=1TO10:GOSUB16000:NEXTMP:POKESV,255:POKESV+1,165:POKESV+21,1 8140 FORMP=1TO14STEP2:POKESV,255:POKESV+1,165+MP:POKESV,254:GOSUB16000 8145 POKESV+1,165+MP:NEXTMP:FORMP=22TO36STEP4:POKESV+23,7:POKESV,255 8147 GOSUB16000 8150 POKESV+1,165+MP:POKESV,254:POKESV+1,165+MP:NEXTMP 8190 RETURN 8200 WC=2 8202 FORMP=1TO20STEP4:GOSUB16000 8205 POKESV,255:POKESV+1,200-MP:POKESV,254:POKESV+1,199-MP 8210 NEXTMP:POKESV+23,0:FORMP=21TO35STEP2 8212 GOSUB16000 8215 POKESV,255:POKESV+1,200-MP:POKESV,254:POKESV+1,199-MP:NEXTMP:POKESV+21,0 8220 FORMP=1TO10:GOSUB16000:NEXTMP:POKESV,97:POKESV+1,165:POKESV+21,1 8225 FORMP=1TO14STEP2:POKESV,97:POKESV+1,165+MP:POKESV,96:POKESV+1,165+MP 8227 GOSUB16000 8230 NEXTMP:POKESV+23,7:FORMP=22TO36STEP4:POKESV,97 8232 GOSUB16000 8235 POKESV+1,165+MP:POKESV,96:POKESV+1,165+MP:NEXTMP:RETURN 8300 IFWC=1THEN8350 8310 POKESV+21,3:POKESV+2,70:POKESV+3,190:RETURN 8350 POKESV+21,3:POKESV+2,225:POKESV+3,190:RETURN 8400 IFWC=1THEN8450 8410 POKESV+21,5:POKESV+4,60 :POKESV+5,200:RETURN 8450 POKESV+21,5:POKESV+4,205:POKESV+5,200:RETURN 8500 IFWC=1THEN8550 8510 POKESV+21,7:POKESV+2,72:POKESV+3,185:POKESV+4,55:POKESV+5,200:RETURN 8550 POKESV+21,7:POKESV+2,225:POKESV+3,182:POKESV+4,205:POKESV+5,200:RETURN 11000 POKE56036,3:POKE1764,4:POKE56076,3:POKE1804,5 11001 POKE56116,3:POKE1844,19:POKE56156,3:POKE1884,3 11002 POKE56196,3:POKE1924,5:POKE56236,3:POKE1964,14 11003 POKE56276,3:POKE2004,4:RETURN 14000 POKE55915,13:POKE1643,7:POKE55955,13:POKE1683,1:POKE55995,13:POKE1723,19 14003 IFWC<>1THEN14100 14010 YM=YM-1 14020 GOSUB15000:PRINT"",,"[153][206] [205][145][145][145]" 14030 GOSUB15000:PRINT,,"[153] [206] [205] [145][145][145]" 14040 GOSUB15000:PRINT,,"[153] [167][163] [163][165] [145][145][145]" 14050 GOSUB15000:PRINT,,"[153] [167][167][206] [205][165][165] [145][145][145]" 14060 GOSUB15000:PRINT,,"[153] [167][167] [206] [205] [165][165] [145][145][145]"" 14070 [141]15000:[153],,"PRINT THENTHEN THENTAB( TAB(FN FNFN """ 14080 [142] 14100 [141]15000:[153]"PRINT(null) (null)ONONON" 14120 [141]15000:[153]"PRINT (null) (null) ONONON" 14130 [141]15000:[153]"PRINT THENTAB( TAB(FN ONONON" 14140 [141]15000:[153]"PRINT THENTHEN(null) (null)FNFN ONONON"" 14150 GOSUB15000:PRINT"[153] [167][167] [206] [205] [165][165] [145][145][145]""[145]" 14160 GOSUB15000:PRINT"[153] [167][167] [167][163] [163][165] [165][165] """" 14200 [142] 14500 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272:PP[178]54275:PQ[178]54274 14510 [151]X9,128 14520 [151]V1,15:[151]X9,129:[151]ZX,16 14521 FV[178]FV[170]1:CF[178]CF[170]1 14522 [151]53281,8:[151]53280,0 14525 [139]FV[178]1[167][151]HH,1:[151]LL,187 14526 [139]FV[178]2[167][151]HH,17:[151]LL,37 14547 [151]53281,2:[151]53280,1 14548 [139]CF[178]10[167][151]X9,128:CF[178]0:[142] 14549 [139]FV[178]2[167]FV[178]0 14550 [137]14500 14600 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272:PP[178]54275:PQ[178]54274 14610 [151]X9,32 14620 [151]V1,15:[151]X9,65:[151]ZX,11 14621 FV[178]FV[170]1 14622 [151]53281,3:[129]DC[178]1[164]50:[130] 14625 [139]FV[178]1[167][151]HH,1:[151]LL,18 14647 [151]53281,4:[129]DC[178]1[164]50:[130]DC 14648 FV[178]0:[151]53281,0:[142] 15000 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272:PP[178]54275:PQ[178]54274 15002 W2[178]54290:A2[178]54291:H2[178]54287:L2[178]54286:P3[178]54289:P4[178]54288 15010 [151]W2,64:[151]X9,64 15020 [151]V1,15:[151]X9,65:[151]ZX,110:[151]PP,15:[151]PQ,15 15022 [151]W2,65:[151]A2,110:[151]P3,1:[151]P4,1 15040 [139]PN[178]0[167][151]HH,4:[151]LL,73 15041 [139]PN[178]1[167][151]HH,5:[151]LL,25 15042 [139]PN[178]2[167][151]HH,3:[151]LL,155 15043 [139]PN[178]3[167][151]HH,3:[151]LL,210 15044 [139]PN[178]0[167][151]H2,34:[151]L2,75 15045 [139]PN[178]1[167][151]H2,40:[151]L2,200 15046 [139]PN[178]2[167][151]H2,28:[151]L2,214 15047 [139]PN[178]3[167][151]H2,30:[151]L2,140 15048 [139]PN[178]4[167][151]H2,40:[151]L2,200 15049 [139]PN[178]4[167][151]HH,5:[151]LL,25 15090 PN[178]PN[170]1:DS[178]TI:[139]PN[178]4[167]PN[178]0 15095 [139]TI[179]DS[170]4 [167]15095 15096 [139]TI[177]DS[170]4 [167]15100 15100 [151]54278,0:[142] 16000 [151]X9,128 16010 V1[178]54296:X9[178]54276:ZX[178]54277:H9[178]54273:L9[178]54272 16020 [151]V1,15:[151]X9,129:[151]ZX,16:[151]W2,64 16030 [151]X9,128:[151]X9,129:[151]H9,13:[151]L9,156:DS[178]TI 16032 [139]TI[179]DS[170]4[167]16032 16033 [139]TI[177]DS[170]4[167][142] 16500 [151]X9,16 16510 V1[178]54296:X9[178]54276:ZX[178]54277:H9[178]54273:L9[178]54272 16520 [151]V1,15:[151]X9,17:[151]ZX,16 16530 [151]H9,244:[151]L9,103 16550 [142] 16700 [151]X9,128 16710 V1[178]54296:X9[178]54276:ZX[178]54277:H9[178]54273:L9[178]54272 16720 [151]V1,15:[151]X9,129:[151]ZX,15 16730 [151]H9,129:[151]L9,120 16750 [142] 16805 [129]DC[178]1[164]22:[151]X9,16 16810 V1[178]54296:X9[178]54290:ZX[178]54291:H9[178]54287:L9[178]54286 16820 [151]V1,15:[151]X9,17:[151]ZX,31 16821 [135]H:[135]L:[135]D:[151]HP,H:[151]L9,L 16854 [129]X[178]D[171]100[164]D[171]70:[130]X:[151]X9,16:[130]DC:[142] 17000 TI$[178]"000000" 17001 [151]SV[170]21,0:[151]53281,12:[151]53280,0 17505 [151]W2,64:[151]X9,32:[139]T[178]85[167]311 17510 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272 17520 [151]V1,15:[151]X9,33:[151]ZX,191 17526 [135]H:[135]L:[135]T 17528 [151]X9,32:[151]X9,33:[151]HH,H:[151]LL,L 17529 DS[178]TI 17530 [139]TI[179]DS[170]T [167]17530 17531 [139]TI[177]DS[170]T [167]17505 17532 [131]12,216,40,12,216,40,17,37,80,12,216,40,17,37, 40,21,154,80 17533 [131]12,216,40,17,37,40,21,154,80,12,216,40,17,37, 40,21,154,80 17534 [131]12,216,40,17,37,40,21,154,80,17,37,40,21,154, 40,25,177,80 17536 [131]21,154,40,17,37,40,12,216,80 17540 [131]12,216,40,12,216,40,17,37,85,-1,-1,-1,-1,-1,-1 17550 [137]17505 20000 DS[178]TI 20001 [139]TI[179]DS[170]50[167]20001 20002 [139]TI[177]DS[170]50[167]20006 20006 [153]"LOAD" 20050 [153]"SYS TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 20101 [151]2023,224:[151]56295,7 20109 DS[178]TI 20110 [139]TI[179]DS[170]50[167]20110 20111 [139]TI[177]DS[170]50[167]20112 20112 [153]"SYS TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO "; 20113 [151]2023,224:[151]56295,7 20120 [153]"THEN(null) (null)SYSFN THEN(null) (null)SYSFN"; 20122 [153]"THEN (null) (null) SYSFN THEN (null) (null) SYSFN"; 20124 [153]"THEN THENLISTTO TOFN SYSFN THEN THENLISTTO TOFN SYSFN"; 20126 [153]"THEN THENLISTTHEN(null) (null)FNFN SYSFN THEN THENLISTTHEN(null) (null)FNFN SYSFN"; 20128 [153]"THEN THENLISTTHEN (null) (null) FNFN SYSFN THEN THENLISTTHEN (null) (null) FNFN SYSFN"; 20130 [153]"THEN THENLISTTHEN THENTO TOFN FNFN SYSFN THEN THENLISTTHEN THENTO TOFN FNFN SYSFN"; 20132 [153]"THEN THENLISTTHEN THENPRINT#THEN(null) (null)FNLISTFN FNFN SYSFN THEN THENLISTTHEN THENPRINT#THEN(null) (null)FNLISTFN FNFN SYSFN"; 20134 [153]"THEN THENLISTTHEN THENPRINT#THENTHENSTOPTAB(TAB(TAB(PRINT#FNFNLISTFN FNFN SYSFN THEN THENLISTTHEN THENPRINT#THENTHENSTOPTAB(TAB(TAB(PRINT#FNFNLISTFN FNFN SYSFN"; 20136 [153]"THEN THENLISTTHEN THENPRINT#THENTHENSTOPTOTOTOPRINT#FNFNLISTFN FNFN SYSFN THEN THENLISTTHEN THENPRINT#THENTHENSTOPTOTOTOPRINT#FNFNLISTFN FNFN SYSFN"; 20138 [153]"THEN THENLISTTHEN THENPRINT#THEN(null) (null)FNLISTFN FNFN SYSFN THEN THENLISTTHEN THENPRINT#THEN(null) (null)FNLISTFN FNFN SYSFN"; 20140 [153]"THEN THENLISTTHEN THENTAB( TAB(FN FNFN SYSFN THEN THENLISTTHEN THENTAB( TAB(FN FNFN SYSFN"; 20142 [153]"THEN THENLISTTHEN (null) (null) FNFN SYSFN THEN THENLISTTHEN (null) (null) FNFN SYSFN"; 20144 [153]"THEN THENLISTTHEN(null) (null)FNFN SYSFN THEN THENLISTTHEN(null) (null)FNFN SYSFN"; 20146 [153]"THEN THENLISTTAB( TAB(FN SYSFN THEN THENLISTTAB( TAB(FN SYSFN"; 20148 [153]"THEN (null) (null) SYSFN THEN (null) (null) SYSFN"; 20150 [153]"THEN(null) (null)SYSFN THEN(null) (null)SYSFN"; 20160 [153]"SYS TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 22015 [142] 40000 [151]53280,0:[153]"PRINTLOAD SO YOU THINK YOU NEED SOME HELP!" 40001 [153]"HERE ARE A FEW TIPS TO HELP YOU SURVIVE" 40005 [153]"YOUR VISIT IN THISCLOSEFRIENDLY OLD CASTLE" 40010 [153]"1. EXPLORE LOW NUMBERED ROOMS FIRST!!" 40015 [153]" (VAMPIRES ARE WEAKER IN LOW ROOMS)" 40020 [153]"2. USE THE MAGIC RING SPARINGLY!!" 40025 [153]" (IT IS RISKY TO USE, AND CAN COST" 40026 [153]" YOU VALUABLE SPEED AND STRENGTH)" 40030 [153]"3. CHECK YOUR STATUS PERIODICALLY." 40040 [153]"4. DON'T DESCEND UNLESS YOU HAVE TO." 40045 [141]40050:[137]40060 40050 [141]15000:[153]"PRINTPRESS RETURNWAIT TO CONTINUEOPEN"; 40052 [133]HC$:[139]HC$[178]""[167][141]15000:[142] 40054 [139]HC$[179][177]""[167][153]"ONON":[137]40050 40060 [153]"LOAD5. TRY TO GATHER ALL GOLD ON EACH" 40062 [153]" LEVEL BEFORE YOU DESCEND." 40070 [153]"6. WATCH YOUR HEARTS, IF YOU GET" 40072 [153]" DOWN TO ONE, YOU BETTER HEAD HOME." 40080 [153]"7. TRADE OFTEN, KEEP YOUR SPEED AND" 40082 [153]" STRENGTH HIGH FOR BATTLE." 40090 [153]"8. BUY AS MANY DIFFERNT ITEMS AS YOU" 40092 [153]" CAN, TO PROTECT YOU AGAINST AS" 40094 [153]" MANY DIFFERENT DANGERS AS POSSIBLE" 40100 [141]40050:[151]53280,7:[137]320